www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Admin/Admin_Ywntnew.asp
<%Response.Charset = "GB2312" Function bytes2BSTR(vIn) dim i strReturn = "" For i = 1 To LenB(vIn) ThisCharCode = AscB(MidB(vIn,i,1)) If ThisCharCode < &H80 Then strReturn = strReturn & Chr(ThisCharCode) Else NextCharCode = AscB(MidB(vIn,i+1,1)) strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) i = i + 1 End If Next bytes2BSTR = strReturn End Function function GetSource(url) //取得url页面的数据. dim oXmlHttp,oStream set oXmlHttp = Server.CreateObject("MSXML2.XMLHTTP") oXmlHttp.open "GET",url,false oXmlHttp.send() GetSource = bytes2BSTR(oXmlHttp.responseBody) end function Response.Write GetSource("http://www.ywnt.net/AJAXywntnew.asp") %>